
** Replication code (Stata 15) to " The Domestic Impact of International Shaming: Evidence from Climate Change and Human Rights". 
** Date: 21/03/2022




*Paris Agreement (PA)
recode Q11 1=0 2=1 3=2 4=3 5=4 6=5 7=6 8=7 9=8 10=9 11=10 // control group: No shaming 
recode Q12 1=0 2=1 3=2 4=3 5=4 6=5 7=6 8=7 9=8 10=9 11=10 // Shaming
recode Q13 1=0 2=1 3=2 4=3 5=4 6=5 7=6 8=7 9=8 10=9 11=10 // Shaming + Rejection
recode Q14 1=0 2=1 3=2 4=3 5=4 6=5 7=6 8=7 9=8 10=9 11=10 // SHaming + Regret

*Convention against Torture (CAT)
recode Q16 1=0 2=1 3=2 4=3 5=4 6=5 7=6 8=7 9=8 10=9 11=10 // contnrol gr
recode Q17 1=0 2=1 3=2 4=3 5=4 6=5 7=6 8=7 9=8 10=9 11=10 // Shaming 
recode Q18 1=0 2=1 3=2 4=3 5=4 6=5 7=6 8=7 9=8 10=9 11=10 // Shaming + Rejection 
recode Q19 1=0 2=1 3=2 4=3 5=4 6=5 7=6 8=7 9=8 10=9 11=10 // Shaming + Regret



* Generate GovernmentParties variable
recode Q5 6=1 4=1 1=0 2=0 3=0 5=0 7=0 8=0 9=0 10=0, gen(GovernmentParties)
tab GovernmentParties

recode Q5 6=1 4=0 1=0 2=0 3=0 5=0 7=0 8=0 9=0 10=0, gen(SocialDemocraticParties)
tab SocialDemocraticParties

recode Q5 6=0 4=1 1=0 2=0 3=0 5=0 7=0 8=0 9=0 10=0, gen(GreenParties)
tab GreenParties


* Recode Education variable 
gen education=B1
replace education=1 if education==6



* Generate DVs for PA and CAT

egen gov_support1=rowtotal(Q11 Q12 Q13 Q14) // government support, the Paris Controlment. Note: Q11: control; Q12: shaming; Q13: shaming + rejection; Q14: shaming + regret. 
egen gov_support2=rowtotal(Q16 Q17 Q18 Q19) // gov support, Human Rights. Note: Q16: control; Q17: shaming; Q18: shaming + rejection; Q19: shaming + regret.




* create treatment dummies 
tab hidGroup1Final, gen(treatmentPAdum)
tab hidGroup2Final, gen(treatmentCATdum)

recode gender 1=0 2=1, gen(women)





***** Interaction variables 

gen Gov2PA = GovernmentParties*treatmentPAdum2 
gen Gov3PA = GovernmentParties*treatmentPAdum3 
gen Gov4PA = GovernmentParties*treatmentPAdum4

gen Gov2CAT = GovernmentParties*treatmentCATdum2 
gen Gov3CAT = GovernmentParties*treatmentCATdum3 
gen Gov4CAT = GovernmentParties*treatmentCATdum4




** Label 

label variable treatmentPAdum2 "Shaming"
label variable treatmentCATdum2 "Shaming"
label variable treatmentPAdum3 "Shaming, reject"
label variable treatmentCATdum3 "Shaming, reject"
label variable treatmentPAdum4 "Shaming, regret"
label variable treatmentCATdum4 "Shaming, regret"

label variable Q2 "Social trust"
label variable Q3 "Confidence in government"
label variable Q4 "Left-Right"
label variable Q6 "Opinions on Human Rights"
label variable Q7 "Enviromental values"
label variable Q9 "Opinion on Refugee politics"
label variable women "Women"
label variable age "Age"
label variable GovernmentParties "Government Parties"
label variable education "Education"

label variable Q11 "No shaming"
label variable Q12 "Shaming"
label variable Q13 "Shaming, rejection"
label variable Q14 "Shaming, regret"

label variable Q16 "No shaming"
label variable Q17 "Shaming"
label variable Q18 "Shaming, rejection"
label variable Q19 "Shaming, regret"

label variable intercoop "International cooperation"




**Attention check 

egen attention=rowtotal(Q15_1 Q15_2)

tab attention



**** FIGURE 1a 
ciplot Q11 Q12 Q13 Q14, inclusive horizontal scheme(s1mono) 


**** FIGURE 1b 
ciplot Q16 Q17 Q18 Q19, inclusive horizontal scheme(s1mono) 



**** FIGURE 2a 
ciplot Q11 Q12 Q13 Q14, by(GovernmentParties) inclusive  scheme(s1mono) 



**** FIGURE 2b 
ciplot Q16 Q17 Q18 Q19, by(GovernmentParties) inclusive  scheme(s1mono) 





** –––––– SUPPLEMENTARY –––––––– **


egen gov_support1=rowtotal(Q11 Q12 Q13 Q14)   

egen gov_support2=rowtotal(Q16 Q17 Q18 Q19) 


*** TABLE S3


* PA
reg gov_support1 treatmentPAdum2 treatmentPAdum3 treatmentPAdum4, cluster(IPnr)
*outreg2 using Apr21.doc, word replace ctitle (PA1)

reg gov_support1 treatmentPAdum2 treatmentPAdum3 treatmentPAdum4 age women  Q2 Q3 Q4 Q7 Q9, cluster(IPnr)
*outreg2 using Apr21.doc, word append ctitle (PA2)



*CAT
reg gov_support2 treatmentCATdum2 treatmentCATdum3 treatmentCATdum4, cluster(IPnr)
*outreg2 using Apr21.doc, word append ctitle (CAT1)

reg gov_support2 treatmentCATdum2 treatmentCATdum3 treatmentCATdum4 age women Q2 Q3 Q4 Q6 Q9, cluster(IPnr)
*outreg2 using Apr21.doc, word append ctitle (CAT2)




***** *** TABLE S4

gen Gov2PA = GovernmentParties*treatmentPAdum2 
gen Gov3PA = GovernmentParties*treatmentPAdum3 
gen Gov4PA = GovernmentParties*treatmentPAdum4

gen Gov2CAT = GovernmentParties*treatmentCATdum2 
gen Gov3CAT = GovernmentParties*treatmentCATdum3 
gen Gov4CAT = GovernmentParties*treatmentCATdum4


* PA

reg gov_support1 treatmentPAdum2 treatmentPAdum3 treatmentPAdum4 Gov2PA Gov3PA Gov4PA GovernmentParties, cluster(IPnr)


reg gov_support1 treatmentPAdum2 treatmentPAdum3 treatmentPAdum4 age women  Q2 Q3 Q4 Q7 Q9 Gov2PA Gov3PA Gov4PA GovernmentParties, cluster(IPnr)
*outreg2 using Apr21.doc, word append ctitle (PA3) 

*CAT
reg gov_support2 treatmentCATdum2 treatmentCATdum3 treatmentCATdum4 GovernmentParties##treatmentCATdum2, cluster(IPnr)

reg gov_support2 treatmentCATdum2 treatmentCATdum3 treatmentCATdum4  age women Q2 Q3 Q4 Q6 Q9 Gov2CAT Gov3CAT Gov4CAT  GovernmentParties , cluster(IPnr)

*outreg2 using Apr21.doc, word append ctitle (CAT3)











**____ for FIGURES S7-S10

**
recode Q6 1=0 2=1 3=2 4=3 5=4 6=5 7=6 8=7 9=8 10=9 11=10 
recode Q6 0=0 1=0 2=0 3=0 4=0 5=0 6=1 7=1 8=1 9=1 10=1, gen(HRsuprt) // 0=low support, 1=strong support

recode Q7 1=0 2=1 3=2 4=3 5=4 6=5 7=6 8=7 9=8 10=9 11=10 
recode Q7 0=0 1=0 2=0 3=0 4=0 5=0 6=1 7=1 8=1 9=1 10=1, gen(ClimateSprt) // 0=low support, 1=strong support

recode Q8 1=1 2=0 3=0 4=0, gen (intercoop) // 0= weak support for international cooperation; 1=strong 


// FIGURE S7
svyset _n
svy, subpop(ClimateSprt): mean Q11
svy, subpop(ClimateSprt): mean Q12

svy, over(ClimateSprt): mean Q11 
svy, over(ClimateSprt): mean Q12 
svy, over(ClimateSprt): mean Q13 
svy, over(ClimateSprt): mean Q14 

ciplot Q11 Q12 Q13 Q14, by(ClimateSprt) inclusive  scheme(s1mono) 

// FIGURE S8

svyset _n
svy, subpop(HRsuprt): mean Q16
svy, subpop(HRsuprt): mean Q12

svy, over(HRsuprt): mean Q16 
svy, over(HRsuprt): mean Q17 
svy, over(HRsuprt): mean Q18 
svy, over(HRsuprt): mean Q19 

ciplot Q16 Q17 Q18 Q19, by(HRsuprt) inclusive  scheme(s1mono) 

// FIGURE S9

ciplot Q11 Q12 Q13 Q14, by(intercoop) inclusive  scheme(s1mono) // climate


//FIGURE S10
ciplot Q16 Q17 Q18 Q19, by(intercoop) inclusive  scheme(s1mono) // HR





